how to user arrange function in R to sort data